home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Hy-Hyperi / HyperBBS 2.0.cpt / HyperBBS 2.0 / UserList / stack_-1.xml < prev   
Encoding:
Extensible Markup Language  |  1992-07-15  |  2.5 KB  |  26 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>7</cardCount>
  7.     <cardID>10358</cardID>
  8.     <listID>4177</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on initFields
  17. end initFields
  18.  
  19. on lookForInput
  20. end lookForInput
  21.  
  22. on openStack
  23. global online
  24. push recent card
  25. showCount
  26. end openStack
  27.  
  28. on showCount
  29. show msg at 22,20
  30. put "UserList: " & the number of cards & " user records in stack."
  31. end showCount
  32.  
  33. on newCard
  34. showCount
  35. end newCard
  36.  
  37. -- The following command deletes all card to the end of the stack.
  38. -- You can use it to prune the UserList after sorting by last logon
  39. -- and going to the oldest user you want to keep. Use it carefully,
  40. -- tho, or you may delete your entire UserList...
  41. --
  42. on deleteToEnd
  43. repeat while the number of this card is not 1
  44. doMenu "delete card"
  45. end repeat
  46. end deleteToEnd
  47.  
  48. function nameToID userName
  49. put empty into it
  50. put it into userID
  51. if userName is not empty then
  52. get lockScreen
  53. put it into oldLock
  54. set lockScreen to true
  55. push card
  56. go to stack "UserList"
  57. find word userName in field "name"
  58. if it is not "not found" then
  59. put "x" into userID
  60. put the ID of this card into firstID
  61. repeat while field "name" is not userName
  62. go to next card
  63. find word userName in field "name"
  64. if the ID of this card is firstID then
  65. put empty into userID
  66. exit repeat
  67. end if
  68. end repeat
  69. end if
  70. if userID is not empty then put the ID of this card into userID
  71. pop card
  72. set lockScreen to oldLock
  73. end if
  74. return userID
  75. end nameToID
  76.  
  77. function getUserInfo userID,infoType
  78. get lockScreen
  79. put it into oldLock
  80. set lockScreen to true
  81. push card
  82. go to stack "UserList"
  83. do "put field " & infoType & " in " & userID & " into it"
  84. pop card
  85. set lockScreen to oldLock
  86. return it
  87. end getUserInfo
  88. </script>
  89.     <background id="2635" file="background_2635.xml" name="" />
  90.     <card id="10358" file="card_10358.xml" marked="false" name="" owner="2635" />
  91.     <card id="2129" file="card_2129.xml" marked="false" name="" owner="2635" />
  92.     <card id="5733" file="card_5733.xml" marked="false" name="" owner="2635" />
  93.     <card id="6094" file="card_6094.xml" marked="false" name="" owner="2635" />
  94.     <card id="9040" file="card_9040.xml" marked="false" name="" owner="2635" />
  95.     <card id="4086" file="card_4086.xml" marked="false" name="" owner="2635" />
  96.     <card id="3049" file="card_3049.xml" marked="false" name="" owner="2635" />
  97. </stack>
  98.